home *** CD-ROM | disk | FTP | other *** search
/ PCMania 19 / PCMania19.iso / Jogos em Flash / ESTRATEGIA / BATTLE_SHIPS.SWF / scripts / frame_45 / DoAction.as
Text File  |  2003-11-17  |  2KB  |  45 lines
  1. sd = "0";
  2. call("chs");
  3. if(er == "0" and shots and eval("p" add xxx add "_" add yyy) < "10" and (eval("p" add (xxx - "1") add "_" add (yyy - "1")) == "10" and eval("p" add xxx add "_" add (yyy - "1")) == "10" and eval("p" add (xxx + "1") add "_" add (yyy - "1")) == "10" and eval("p" add (xxx + "1") add "_" add yyy) == "10" and eval("p" add (xxx + "1") add "_" add (yyy + "1")) == "10" and eval("p" add xxx add "_" add (yyy + "1")) == "10" and eval("p" add (xxx - "1") add "_" add yyy) == "10" and eval("p" add (xxx - "1") add "_" add (yyy + "1")) == "10") == "0")
  4. {
  5.    duplicateMovieClip("/s","s" add xxx add "_" add yyy,xxx + yyy * "20" + 16384);
  6.    setProperty("s" add xxx add "_" add yyy, _X, xxx * "15" + dx + "7.5");
  7.    setProperty("s" add xxx add "_" add yyy, _Y, yyy * "15" + dy + "7.5");
  8.    set("p" add xxx add "_" add yyy,eval("p" add xxx add "_" add yyy) + "20");
  9.    shots -= "1";
  10. }
  11. else if("0" < shots)
  12. {
  13.    if(rndc < "1000")
  14.    {
  15.       gotoAndPlay(44);
  16.    }
  17.    else
  18.    {
  19.       while(rndc)
  20.       {
  21.          xxx -= "1";
  22.          if(xxx == - "1")
  23.          {
  24.             xxx = "19";
  25.             yyy -= "1";
  26.             if(yyy == - "1")
  27.             {
  28.                yyy = "19";
  29.             }
  30.          }
  31.          call("chs");
  32.          if(er == "0" and shots and eval("p" add xxx add "_" add yyy) < "10" and (eval("p" add (xxx - "1") add "_" add (yyy - "1")) == "10" and eval("p" add xxx add "_" add (yyy - "1")) == "10" and eval("p" add (xxx + "1") add "_" add (yyy - "1")) == "10" and eval("p" add (xxx + "1") add "_" add yyy) == "10" and eval("p" add (xxx + "1") add "_" add (yyy + "1")) == "10" and eval("p" add xxx add "_" add (yyy + "1")) == "10" and eval("p" add (xxx - "1") add "_" add yyy) == "10" and eval("p" add (xxx - "1") add "_" add (yyy + "1")) == "10") == "0")
  33.          {
  34.             duplicateMovieClip("/s","s" add xxx add "_" add yyy,xxx + yyy * "20" + 16384);
  35.             setProperty("s" add xxx add "_" add yyy, _X, xxx * "15" + dx + "7.5");
  36.             setProperty("s" add xxx add "_" add yyy, _Y, yyy * "15" + dy + "7.5");
  37.             set("p" add xxx add "_" add yyy,eval("p" add xxx add "_" add yyy) + "20");
  38.             shots -= "1";
  39.             rndc = "0";
  40.             trace(rndc);
  41.          }
  42.       }
  43.    }
  44. }
  45.